home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / tcp / PortalOpening2.lha / Install next >
Text File  |  1980-01-11  |  4KB  |  195 lines
  1. ; *******************************
  2. ; *       *
  3. ; * 3 AMIGOS Software (c) 98-99 *
  4. ; *         *
  5. ; * Portal Opening v2.0         *
  6. ; * Client v2.0: c0mpl3x0       *
  7. ; * Server v2.0: Whee_Cool      *
  8. ; * Prefs  v2.0: Whee_Cool      *
  9. ; *                             *
  10. ; * http://www.escape-net.org   *
  11. ; *       *
  12. ; *******************************
  13.  
  14. ;------- Prompts ---------------------------------
  15. ;
  16. (set DestDirPrompt
  17.   (cat  "Where do you want to install Portal Opening v2.0 [PO2] ?\n"
  18.         "A new drawer will be created."
  19.   )
  20. )
  21.  
  22. ;------- Help ------------------------------------
  23. ;
  24. (set DestDirHelp
  25.   (cat  "Choose a directory where PO2 will be placed.\n"
  26.   "All the relevant files will be copied over to that\n"
  27.   "directory. You will then be able to use PO2\n"
  28.   "from your chosen location on your harddrive.\n"
  29.         "(e.g. Work:)"
  30.   )
  31. )
  32.  
  33. (set POAssign
  34.   (cat  "This will put the assign command in your S:User-Startup to "
  35.   "assign \"PO2\" during your Amiga's startup. "
  36.   "This is VERY important and it is advised that you "
  37.   "continue with the assign!\n"
  38.   )
  39. )
  40.  
  41. ;------- Messages --------------------------------
  42. ;
  43. (set Intro
  44.   (cat  "\n\n\n3 AMIGOS Software\n"
  45.   "(c) 1998-1999\n\n"
  46.   "Present:\n\n"
  47.   "Portal Opening v2.0\n"
  48.   )
  49. )
  50.  
  51. (set StartupMsg
  52.   (cat  "\nPortal Opening v2.0 Installation\n\n"
  53.         "This program installs PO2 and\n"
  54.         "the relevent files to your hard disk.\n\n"
  55.         "This is a complete FREE FULL version!\n"
  56.         "\n"
  57.         "Please send us your comments.\n\n"
  58.         "Contact: \n\n"
  59.   "        c0mpl3x0 [Client]: admin@escape-net.org\n"
  60.   "        Whee_Cool [Server]: apwheeler@apwheeler.demon.co.uk\n\n"
  61.   )
  62. )
  63. (set AllrightMsg
  64.   (cat  "\nPO2 is now installed.\n\n"
  65.         "We hope that you enjoy the software.\n\n"
  66.         "Dave Searle [c0mpl3x0] & Andy Wheeler [Whee_Cool]\n\n"
  67.   "http://www.escape-net.org\n\n"
  68.   )
  69. )
  70.  
  71. (set AllrightMsgRegister
  72.   (cat  "\nPortal Opening is now installed.\n\n"
  73.         "Have fun!\n\n"
  74.         "Dave Searle & Andy Wheeler"
  75.   )
  76. )
  77.  
  78. (set Reboot
  79.   (cat  "\n\n\n\nPlease Reboot Your Amiga To Use\n\n"
  80.   "Portal Opening v2.0"
  81.   )
  82. )
  83.  
  84. ;------- Installation ----------------------------
  85. ;
  86. (message Intro)
  87. (message StartupMsg)                    ; Welcome the user
  88.  
  89. (set DestDir                            ; Ask dir to create drawer
  90.   (askdir
  91.     (prompt  DestDirPrompt)
  92.     (help    DestDirHelp)
  93.     (Default "SYS:")
  94.   )
  95. )
  96. (set DestDir                            ; And create this directory
  97.   (tackon DestDir "PortalOpening2")
  98. )
  99. (MakeDir
  100.   (DestDir)
  101.   (infos)
  102. )
  103. (set @Default-dest (DestDir))
  104.  
  105. (copyfiles
  106.   (help @copyfiles-help)
  107.   (Source "PO2Server")
  108.   (dest DestDir)
  109.   (infos)
  110. )
  111.  
  112. (copyfiles
  113.   (help @copyfiles-help)
  114.   (Source "PO2Client")
  115.   (dest DestDir)
  116.   (infos)
  117. )
  118.  
  119. (copyfiles
  120.   (help @copyfiles-help)
  121.   (Source "PO2Client.info")
  122.   (dest DestDir)
  123.   (infos)
  124. )
  125.  
  126. (copyfiles
  127.   (help @copyfiles-help)
  128.   (Source "PO2Prefs")
  129.   (dest DestDir)
  130. )
  131.  
  132. (copyfiles
  133.   (help @copyfiles-help)
  134.   (Source "PO2Prefs.info")
  135.   (dest DestDir)
  136. )
  137.  
  138. (copyfiles
  139.   (help @copyfiles-help)
  140.   (Source "PO2.guide")
  141.   (dest DestDir)
  142. )
  143.  
  144. (copyfiles
  145.   (help @copyfiles-help)
  146.   (Source "PO2.guide.info")
  147.   (dest DestDir)
  148. )
  149.  
  150. (copyfiles
  151.   (help @copyfiles-help)
  152.   (Source "Install")
  153.   (dest DestDir)
  154. )
  155.  
  156. (copyfiles
  157.   (help @copyfiles-help)
  158.   (Source "Install.info")
  159.   (dest DestDir)
  160. )
  161.  
  162. (startup "PortalOpening2"
  163.   (prompt "The assign \"" DestDir "\" needs to be added to the "
  164.           "\"S:User-startup\". This will allow PO to work properly! "
  165.     "This assign is VERY important!\n")
  166.   (help POAssign)
  167.   (command "assign PO2: " DestDir "\n")
  168. )
  169.  
  170. ; Create the textfile with a pointer to PO2
  171. (textfile
  172.   (dest "t:dbtemp")
  173.     (append
  174.       "ADD services PO2 4298/tcp\n"
  175.         ("ADD inetd PO2 stream tcp nowait root PO2:PO2Server PO")
  176.     )
  177. )
  178.  
  179. ; Add the lines to envarc:MiamiChangeDB (i.e. don't overwrite! Other programs
  180. ; may have their lines there too)
  181. (Run "type t:dbtemp >>envarc:MiamiChangeDB")
  182.  
  183. ; If Miami shoule be running... why not make it read the new settings?
  184. (Run "SYS:Rexxc/RX \"ADDRESS MIAMI.1;changedb\"")
  185.  
  186. ; Clean up
  187. (delete "t:dbtemp")
  188.  
  189. (message "\n\nPO2 is now installed.\nMiami has been notified about the changes!")
  190. (message AllrightMsg)
  191. (message Reboot)
  192.  
  193. ;------- Done ------------------------------------
  194.  
  195.